home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / laby.txt < prev    next >
Text File  |  1994-03-01  |  1KB  |  21 lines
  1. 1 '*** OISAC 2 *** LABY ***
  2. 10 CLS:DEFSEG=0:CLEAR:Z=5:D$="1525F9D610":G$="11D6F92414":DEFCHR$(252)="E0A0A0A0E0":DEFCHR$(253)="00061F0000":DEFCHR$(255)=G$:DEFCHR$(254)=D$:DIMX(10):FORI=1TO3:X(I)=30+I:X(10-I)=-30-I:NEXT:X(I)=-1:X(6)=1:PRINTTAB(9)CHR$(254)" LABYRINTHE "CHR$(255);
  3. 20 FORI=0TO255:IFRAN#>.5THENPOKEI,232ELSEPOKEI,32
  4. 30 NEXT:POKE240,219:POKE30,252:POKE193,253:FORE=0TO255STEP32:POKEE,134:POKEE+31,134:NEXT:A=15:POKEA,255
  5. 40 LOCATEA MOD32-1,INT(A/32):PRINTCHR$(0);
  6. 50 $=INPUT$(1,@):S=0:IFASC($)=14THENS=1:$=INPUT$(1,@)
  7. 60 W=VAL($):IFS=1THEN80
  8. 70 ON W GOTO140,90,150,140,90,150,140,90,150
  9. 75 GOTO40
  10. 80 IFZ=0OR W=5THEN40ELSE120
  11. 90 B=PEEK(A+X(W)):IFB=252OR B=25
  12. 3THENC=C+1ELSEIFB=219AND C=2THENPOKEA,0:POKE240,255:PRINTCHR$(0);:GOSUB160:LOCATEA MOD32-1,INT(A/32):PRINT" ";:DEFCHR$(255)="E0A6BFA0E0":GOSUB160:GOTO170
  13. 100 B=A+X(W):IFB>0AND B<255AND PEEKB<>232AND PEEKB<>134THENPOKEA,0:A=B:POKEA,255
  14. 110 GOTO40
  15. 120 Z=Z-1:B=A+X(W):IFB>0AND B<255AND PEEKB<>134THENPOKEB,46
  16. 130 GOTO90
  17. 140 DEFCHR$(255)=G$:GOTO90
  18. 150 DEFCHR$(255)=D$:GOTO90
  19. 160 FORJ=1TO500:NEXTJ:RETURN
  20. 170 DEFCHR$(255)="FF828292FF":GOSUB160:DEFCHR$(255)="FF82FFFFFF":GOSUB160:CLS:DEFCHR$(254)=G$:DEFCHR$(255)=D$:PRINTTAB(4)CHR$(255)" Bravo vous avez gagne "CHR$(254):END
  21.